home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / VISUAL_B / H441.ZIP / VXBTEST.ZIP / VXFORM4.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-11-13  |  10KB  |  257 lines
  1. VXFORM4
  2. Buyer Details
  3. Form1%
  4.     BuyStatus
  5. BuyExit
  6. E&xit
  7.     BuyBrowse
  8. &Browse
  9. BuyPrevious
  10.     &Previous
  11. BuyNext
  12. &Next
  13.     BuyDelete
  14. &Delete
  15. BuyAdd
  16.     BuyCancel
  17. &Cancel
  18. BuySave
  19. &Save
  20. BuyHigh
  21. BuyLow
  22. BuyTypeDesc
  23. BuyTypeHelp
  24. MS Serif
  25. BuyType
  26. BuyCode
  27. Label5
  28. Status
  29. MS Serif
  30. Label4
  31. High Price
  32. MS Serif
  33. Label3
  34.     Low Price
  35. MS Serif
  36. Label2
  37. Aircraft Type
  38. MS Serif
  39. Label1
  40. MS Serif
  41.     Form_Load7
  42. vxSelectDbfb
  43. AirbuyerDbf
  44. Form4Active
  45. BuyerReturn
  46. BROWSE_ADD
  47. BuyerDataClear(
  48.     BuyStatus
  49. BuySave
  50. Enabled?
  51.     BuyCancel7
  52. BuyAddl
  53. FALSE
  54.     BuyDeleteL
  55. BROWSE_EDIT
  56. BuyerDataLoad
  57. vxRecNo,
  58. Form_Unload
  59. CancelJ
  60. BROWSE_USERk
  61. vxClose
  62. AirtypesDbf
  63. StatesOpen
  64. AircustDbf
  65. vxSelectNtx
  66. Aircust1Ntx
  67. vxSeek
  68. CustKey
  69. CustReturnG
  70. VXFORM3
  71. BuyCode
  72. BuyType
  73. BuyTypeDesc
  74. BuyLow
  75. BuyHighX
  76. b_low
  77. b_high
  78. CursorWaitw
  79. EnableBuyerData
  80. vxDoubleJ
  81. vxField
  82. vxUnlock
  83. CursorArrow
  84. DisableBuyerData
  85. BuyAdd_Click
  86. BuyBrowse_Click
  87. VXFORM4
  88. Visible
  89. BuyerRec
  90. BrowseBuyers
  91. BuyCancel_Click;
  92. BuyDelete_Click
  93. vxDeleteRec
  94. BuyExit_Clickl
  95. BuyHigh_KeyPress
  96. KeyAscii
  97. BuyLow_KeyPress
  98. BuyType_GotFocus
  99. vxCtlLength
  100. BuyType_KeyPress
  101. BuyType_LostFocus
  102. EmptyString~
  103. BuyNext_Click
  104. EndFile
  105. vxSkip5
  106. BuyNextW
  107. BuyPrevious
  108.     BuyBrowseA
  109. vxEof%
  110. vxBottom
  111. vxBof
  112.     vxDeletedk
  113. BuyHigh_GotFocus
  114. BuyLow_GotFocus
  115. BuyPrevious_Click
  116. BegFile
  117. BuySave_Click
  118. TypeKey
  119. SeekKey
  120. vxAppendBlank
  121. vxReplString
  122. vxReplDouble3
  123. vxWrite
  124. BuyTypeHelp_Click
  125. AirtypesNtx
  126. TypeReturnU
  127. vxBrowse
  128. Hwnd~
  129. Form_Paintd
  130. vxFormFramer
  131. vxCtlStyle
  132. VX_RAISE
  133.     VX_RECESS
  134. BROWSE_DELETE
  135. vxCtlFormat
  136. VX_NUM
  137. VX_UPPER
  138. BuyCode_Change
  139. BuyAdd_Click
  140.  clear form for addition of new record
  141. Record Addition Request"
  142.  ensure data entry enabled
  143.  reset the buttons
  144. BuyBrowse_Click
  145.  ensure we're positioned to top rec of group
  146.  so we don't close files
  147.  when we unload the form
  148. No buyer records on file!"
  149. BuyCancel_Click
  150.  Clear form data and reset button status
  151. Operation cancelled"
  152. BuyDelete_Click
  153.  get user confirmation of delete
  154. Confirm Delete
  155.  Deleted
  156. Delete failed"
  157. Delete cancelled
  158. BuyerDataClear
  159. BuyerDataLoad
  160. b_low"
  161. b_high
  162. #######0
  163. #######0
  164. b_cat"
  165. b_desc
  166. b_code
  167. BuyExit_Click
  168. BuyHigh_GotFocus
  169.    Call vxCtlLength("b_high"))
  170. BuyHigh_KeyPress
  171.    If KeyAscii = 13 Then
  172.  KeyAscii = 0=
  173.  SendKeys "{Tab}" 
  174.  Exit Sub 
  175.    End Ifu
  176.    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then-
  177.  KeyAscii = 0<
  178.  Beeps
  179.    End Iff
  180. BuyLow_GotFocus
  181.    Call vxCtlLength("b_low")
  182. BuyLow_KeyPress
  183.    If KeyAscii = 13 Then
  184.  KeyAscii = 0=
  185.  SendKeys "{Tab}" 
  186.  Exit Sub 
  187.    End Ifu
  188.    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then-
  189.  KeyAscii = 0<
  190.  Beeps
  191.    End Iff
  192. BuyNext_Click
  193.  skip forward one record
  194.  if skip error, only allow exit
  195. Error on Skip Next. Try Reindex.
  196.  if this rec doesn't belong to this customer, eof is true-
  197. b_code
  198. b_code
  199. No buyer records on file!"
  200.  test for end of file 
  201. End of File!
  202. Skipped to record 
  203. BuyPrevious_Click
  204.  skip back one record
  205.  if skip error, only allow exit
  206. Error on Skip Previous. Try Reindex.
  207. b_code
  208. No buyer records on file!"
  209.  test for beginning of file"
  210. Beginning of File!
  211. Skipped to record 
  212. BuySave_Click
  213.  verify something in the field
  214. Field cannot be empty"
  215.  verify unique key if adding
  216. Duplicate Key on Add
  217.  Data passed. Put it away
  218. b_code
  219. b_cat"
  220. b_desc
  221. b_low"
  222. b_high
  223.  Update status box
  224. Record "
  225.  appended"
  226. Record "
  227.  saved
  228.  Update Button Status
  229. BuyType_GotFocus
  230.    Call vxCtlLength("b_cat")
  231. BuyType_KeyPress
  232.  convert to uppercase
  233.    C$ = UCase$(C$)
  234. {Tab}"
  235. BuyType_LostFocus
  236. catname"
  237. BuyTypeHelp_Click
  238. Aircraft Type Help
  239.  re-register databasec
  240. category
  241. catname"
  242. DisableBuyerData
  243. EnableBuyerData
  244. Form_Load
  245. Record addition request"
  246.  if user pressed ENTER then file is positioned
  247.  at current record and the record number isn
  248.  returned in BuyerReturn. In this case we assume
  249.  he wants to edit that record.
  250.  call general proc to load controls-
  251. Edit record 
  252. Form_Paint
  253.  if delete request from browse, do it nowT
  254.  because we must let enhanced controls
  255.  paint before asking for delete confirmation
  256. Form_Unload
  257.